www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\inc\Main_Class.asp
<% '**************************************************** 'Code for EptimeFFMS 'Vision : v3.0 '**************************************************** Option Explicit dim starttime,endtime setStartTime const CONN_OBJ_NAME = "ADODB.CONNECTION" const RECORDSET_OBJ_NAME = "ADODB.RECORDSET" dim FSO_OBJ_NAME FSO_OBJ_NAME = "SCRI"&"PTING.FILES"&"YSTEMOBJECT" dim STREAM_OBJ_NAME STREAM_OBJ_NAME = "ADOD"&"B.ST"&"REAM" dim DICTIONARY_OBJ_NAME DICTIONARY_OBJ_NAME = "SCRIPTING.DICTIONARY" dim JPEG_OBJ_NAME JPEG_OBJ_NAME="Persits.jpeg" dim UPLOAD_OBJ_NAME UPLOAD_OBJ_NAME="Persits.Upload.1" dim TABLE_PRE TABLE_PRE = "Eptime_" Class MainClass private className Private Sub Class_Initialize className="" End Sub Public Function createObject(byval classStr) className=classStr classname=replace(classname,".","_") Execute("set createObject=new "&classname) End Function Private Sub Class_Terminate() End Sub End Class %> <!--#include file="config.asp"--> <!--#include file="CommonFun.asp"--> <!--#include file="Xml_Class.asp"--> <!--#include file="Template_Class.asp"--> <!--#include file="DB_Class.asp"--> <!--#include file="Datelist_Class.asp"--> <!--#include file="lang.asp"--> <% dim mainClassObj set mainClassObj = New MainClass dim conn set conn = mainClassobj.createObject("MainClass.DB") if databaseType = 0 then conn.dbType = "acc" : else conn.dbType = "sql" dim objFso,objStream initializeAllObjects %>